home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1469 / callback.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-08-03  |  4.3 KB  |  105 lines
  1. VERSION 4.00
  2. Begin VB.Form frmCallbacks 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "VBMax Electronic Message Demo - Callbacks"
  5.    ClientHeight    =   600
  6.    ClientLeft      =   60
  7.    ClientTop       =   2565
  8.    ClientWidth     =   9540
  9.    Height          =   1005
  10.    Icon            =   "Callbacks.frx":0000
  11.    Left            =   0
  12.    LinkTopic       =   "Form1"
  13.    LockControls    =   -1  'True
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   600
  17.    ScaleWidth      =   9540
  18.    Top             =   2220
  19.    Width           =   9660
  20.    Begin VB.PictureBox picDisplay 
  21.       Height          =   510
  22.       Left            =   30
  23.       ScaleHeight     =   450
  24.       ScaleWidth      =   9435
  25.       TabIndex        =   0
  26.       Top             =   60
  27.       Width           =   9495
  28.    End
  29. Attribute VB_Name = "frmCallbacks"
  30. Attribute VB_Creatable = False
  31. Attribute VB_Exposed = False
  32. Option Explicit
  33. Dim moEDisp As New CElectronicDisplay
  34. Private Sub Form_Load()
  35.     Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
  36.     With moEDisp
  37.         .BackColor = &H800000
  38.         .ForeColor = &HFFFF00
  39.         .NotifyWhenFinished = True
  40.         .NotifyDelay = 0
  41.         .Effect = gnEFFECT_STATIC
  42.         Set .Container = picDisplay
  43.         .Caption = " "
  44.     End With
  45. End Sub
  46. Private Sub Form_Unload(Cancel As Integer)
  47.     moEDisp.Shutdown
  48.     Set moEDisp = Nothing
  49.     Set frmCallbacks = Nothing
  50. End Sub
  51. Public Sub VBMaxElectronicDisplay_Finished(roEDisp As CElectronicDisplay) 'Called-back routine
  52. Static nCounter As Integer
  53.     nCounter = nCounter + 1
  54.     With moEDisp
  55.         Select Case nCounter
  56.             Case 1:  Display gnEFFECT_SLIDE_FROM_TOP_CENTER, "With callbacks you can ..."
  57.             Case 2:  Display gnEFFECT_SLIDE_TO_BOTTOM_CENTER
  58.             Case 3:  Display gnEFFECT_SLIDE_FROM_TOP_LEFT, "Control the display, "
  59.             Case 4:  Display gnEFFECT_SLIDE_TO_BOTTOM_RIGHT
  60.             Case 5:  Display gnEFFECT_BUILD_FROM_LEFT_AND_RIGHT, "Know when an effect has finished."
  61.             Case 6:  Display gnEFFECT_WIPE_FROM_LEFT_AND_RIGHT
  62.             Case 7:  Display gnEFFECT_BUILD_TO_LEFT_AND_RIGHT, "Use them for such things as"
  63.             Case 8:  Display gnEFFECT_WIPE_TO_TOP_AND_BOTTOM
  64.             Case 9:  Display gnEFFECT_BUILD_FROM_TOP_AND_BOTTOM, "Changing the message"
  65.             Case 10:  Display gnEFFECT_WIPE_FROM_TOP_AND_BOTTOM
  66.             Case 11:
  67.                      If .ForeColor = vbYellow Then
  68.                          .ForeColor = &HFFFF00
  69.                      Else
  70.                          .ForeColor = vbYellow
  71.                      End If
  72.                      Display gnEFFECT_BUILD_TO_TOP_AND_BOTTOM, "Or changing the colors"
  73.             Case 12: Display gnEFFECT_WIPE_TO_LEFT_AND_RIGHT
  74.             Case 13: Display gnEFFECT_SLIDE_FROM_BOTTOM_CENTER, "Combining different effects"
  75.             Case 14: Display gnEFFECT_SLIDE_TO_BOTTOM_CENTER
  76.             Case 15: Display gnEFFECT_SLIDE_FROM_BOTTOM_CENTER, "Makes the display more interesting"
  77.             Case 16: Display gnEFFECT_WIPE_FROM_BOTTOM
  78.             Case 17: Display gnEFFECT_BUILD_FROM_TOP, "Draw attention to your words"
  79.             Case 18: .Cls
  80.                      .flashcount = 4
  81.                      Display gnEFFECT_FLASH, "~~~ Get your message across ~~~"
  82.             Case 19: .Interval = 1
  83.                      .ScrollAmount = gnENTIRE_CHARACTER
  84.                      .Interval = 125
  85.                      Display gnEFFECT_SCROLL, "Just set NotifyWhenFinished = True and add this subroutine to your form:  VBMaxElectronicDisplay_Finished  "
  86.             Case 20: Display gnEFFECT_WIPE_FROM_LEFT
  87.             Case 21: Display gnEFFECT_BUILD_FROM_RIGHT, "See the example in this form."
  88.             Case 22: Display gnEFFECT_WIPE_FROM_RIGHT
  89.                      nCounter = 0
  90.         End Select
  91.     End With
  92. End Sub
  93. Private Sub Display(rnEffect As Integer, Optional rvCaption As Variant)
  94.     With moEDisp
  95.         If IsMissing(rvCaption) Then
  96.             .NotifyDelay = 0
  97.             .Effect = rnEffect
  98.         Else
  99.             .NotifyDelay = 3
  100.             .Effect = rnEffect
  101.             .Caption = rvCaption
  102.         End If
  103.     End With
  104. End Sub
  105.